home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / numbers.swg / 0051_Ramdon Integer.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  200 b   |  11 lines
  1.  
  2. Function RandomInteger: Integer; Assembler;
  3. asm
  4.   mov ah,2ch
  5.   int 21h     { Get a random seed from DOS's clock }
  6.   imul 9821
  7.   inc ax
  8.   ror al,1
  9.   rol ah,1    { Randomize the seed }
  10. end;
  11.